﻿' (segue) Esempio: 15.01
Public Class Form1
  Private Sub Button1_Click(ByVal sender _
          As System.Object, _
          ByVal e As System.EventArgs) _
          Handles Button1.Click
    Dim Persone() As Persona = { _
        New Persona("Andrea", 7), _
        New Persona("Ornella", 47), _
        New Persona("Mario", 46), _
        New Persona("Gian Carlo", 74), _
        New Persona("Rina", 71), _
        New Persona("Caterina", 4), _
        New Persona("Federica", 19), _
        New Persona("Margherita", 16), _
        New Persona("Antonella", 48)}

    Dim messaggio As String = ""

    For i As Integer = 0 To 8
      messaggio &= _
          "Nome: " & Persone(i).Nome & _
          " età: " & Persone(i).Età & _
          " fascia: " & _
          CalcolaEtà(Persone(i)) & _
          Environment.NewLine
    Next

    MessageBox.Show(messaggio)
  End Sub

  Public Function CalcolaEtà(ByVal pPersona _
          As Persona) As String
    Dim età As Integer = pPersona.Età
    Dim risultato As String
    If età < 6 Then
      risultato = "< 6"
    ElseIf età > 7 And età < 12 Then
      risultato = "7 > < 12"
    ElseIf età > 13 And età < 44 Then
      risultato = "13 > < 44"
    ElseIf età > 45 And età < 64 Then
      risultato = "45 > < 64"
    ElseIf età > 65 And età < 74 Then
      risultato = "65 > < 74"
    ElseIf età > 75 Then
      risultato = "75 > "
    Else
      risultato = "Non valido"
    End If
    Return risultato
  End Function

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Dim Persone() As Persona = { _
    New Persona("Andrea", 7), _
    New Persona("Ornella", 47), _
    New Persona("Mario", 46), _
    New Persona("Gian Carlo", 74), _
    New Persona("Rina", 71), _
    New Persona("Caterina", 4), _
    New Persona("Federica", 19), _
    New Persona("Margherita", 16), _
    New Persona("Antonella", 48)}

    Dim messaggio As String = ""

    For i As Integer = 0 To 8
      messaggio &= _
          "Nome: " & Persone(i).Nome & _
          " età: " & Persone(i).Età & _
          " fascia: " & _
          CalcolaEtà2(Persone(i)) & _
          Environment.NewLine
    Next

    MessageBox.Show(messaggio)
  End Sub
  Public Function CalcolaEtà2(ByVal pPersona _
          As Persona) As String
    Dim età As Integer = pPersona.Età
    Dim risultato As String
    If età >= 0 And età <= 6 Then
      risultato = "0-6"
    ElseIf età >= 7 And età <= 12 Then
      risultato = "7-12"
    ElseIf età >= 13 And età <= 44 Then
      risultato = "13-44"
    ElseIf età >= 45 And età <= 64 Then
      risultato = "45-64"
    ElseIf età >= 65 And età <= 74 Then
      risultato = "65-74"
    ElseIf età >= 75 And età <= 120 Then
      risultato = "75-120"
    Else
      risultato = "Non valido"
    End If
    Return risultato
  End Function
End Class
